home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / bbs / pprd199.zip / BANNER.PL < prev    next >
Perl Script  |  1994-09-23  |  155b  |  10 lines
  1. #!/usr/local/bin/perl
  2. while (1)
  3. {
  4.     exit 0 if read(STDIN,$c,1) == 0;
  5.     last if ($cl eq "\031" && $c eq "\001");
  6.     $cl = $c;
  7. }
  8. kill 'STOP',$$;
  9. exit 0
  10.